unit unPenalidade;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBCtrls, StdCtrls, Mask;

type
  TfmPenalidade = class(TForm)
    DBLookupComboBox1: TDBLookupComboBox;
    dsPenalizacoes: TDataSource;
    dsPilotos: TDataSource;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBLookupComboBox1CloseUp(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmPenalidade: TfmPenalidade;

implementation

uses unDM;

{$R *.dfm}

procedure TfmPenalidade.Button1Click(Sender: TObject);
begin
dm.tabPenalizacoesidevento.Value := dm.tabEventosidevento.Value;
dm.tabPenalizacoes.Post;
Close;
end;

procedure TfmPenalidade.Button2Click(Sender: TObject);
begin
dm.tabPenalizacoes.Cancel;
Close;
end;

procedure TfmPenalidade.DBLookupComboBox1CloseUp(Sender: TObject);
begin
DBEdit1.SetFocus;
end;

end.
